home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 / IRIX 6.2 CD2.iso / dist / outbox.idb / var / www / cgi-bin / wrap.z / wrap
Text File  |  1996-06-10  |  12KB  |  661 lines
  1. #!/usr/bin/perl
  2.  
  3. #__________________________________________________________
  4. #
  5. #    File:    wrap
  6. #    By:      Matt Ho
  7. #   Date:    7/23/95
  8. #   Purpose: Wrapper to dynamically create HTML documents
  9. #            that contain a easy to read directory content.
  10. #__________________________________________________________
  11.  
  12.  
  13. #__________________________________________________________
  14. #
  15. #    Set some environment variables, we'll need through the
  16. #    script and do some initial error checking.
  17. #__________________________________________________________
  18.  
  19. $ROOT     = "/var/www/htdocs" ;    # Root directory
  20. $PATH     = $ENV{'PATH_INFO'} ; 
  21. $wrap     = "/cgi-bin/wrap" ;        # Script alias for this CGI
  22. $ls       = "/sbin/ls -a1" ;
  23.  
  24. #__________________________________________________________
  25. #
  26. #    Read the form data in.  PATH_INFO may be passed here
  27. #    if this was called from a SSI.  We're going to make
  28. #    one final tweak and read from the arg list as well
  29. #    for SSI's.
  30. #__________________________________________________________
  31.  
  32. if( $ENV{'REQUEST_METHOD'} eq "GET" )
  33. {
  34.    $buffer=$ENV{'QUERY_STRING'} ;
  35. } 
  36. else
  37. {
  38.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
  39. }
  40.  
  41. @pairs = split(/&/, $buffer) ;
  42. foreach (@pairs)
  43. {
  44.     tr/+/ / ;    
  45.    ($name,$value) =  split(/=/) ;
  46.     $value        =~ s/%(..)/pack("c",hex($1))/ge ;
  47.     $name         =~ s/%(..)/pack("c",hex($1))/ge ;
  48.  
  49.     $FORM{$name} = $value ;
  50. }
  51.  
  52. #_________________________________
  53. #
  54. #    Some basic checks to take
  55. #    care of
  56. #_________________________________
  57.  
  58. if( $ARGV[0] )
  59. {
  60.     $PATH = $ARGV[0] ;
  61.     $arg  = 1 ;
  62. }
  63. chop $PATH if substr($PATH, -1) eq "/" ;
  64. @_        = split('/', $PATH) ;
  65. $pathRoot = $_[$#_] ;
  66. $doc      = $ROOT.$PATH ;
  67.  
  68. &DefaultMesg if ! defined $PATH || $PATH eq "" ;    # Get a base listing =)
  69. &ErrBadPath unless &ValidPath ;    # Check for server spoofing
  70. &ErrBadPath unless -e $doc ;    # Check to see it exists
  71. &HandleDownload if -f $doc ;    # Do the right thing
  72.  
  73. #__________________________________________________________
  74. #
  75. #    If we get to this point, we can be reasonably certain
  76. #    that this is a valid shared directory.  We want to
  77. #    show it using the appropriate method.  The following
  78. #    section is the leading data.  ShowContents will supply
  79. #    the rest of the data.
  80. #
  81. #    We do, however, need to account for the user putting
  82. #    an index.html file in the directory.  We'll handle 
  83. #    that as follows.  If the file exists, it is assumed to
  84. #    be in the right.  We will append out data at the end,
  85. #    using the index.html's head section. Otherwise, we
  86. #    will use ours.
  87. #__________________________________________________________
  88.  
  89. if( $arg == 1 )
  90. {
  91.     #    This is intentionally left blank
  92. }
  93. elsif( -r "$doc/index.html" )
  94. {
  95.     print "Content-type: text/html\n\n" ;
  96.  
  97.     open(INDEX, "$doc/index.html") ;
  98.     while( <INDEX> )
  99.     {
  100.         next if /<!--#/ ;
  101.         last if /<\/body>/i ;
  102.         last if /<\/html>/i ;
  103.         print ;
  104.     }
  105.     close(INDEX) ;
  106. }
  107. else
  108. {
  109.     print <<ENDOFTEXT ;
  110. Content-type: text/html
  111.  
  112. <head>
  113.     <title>
  114.         Contents of $pathRoot
  115.     </title>
  116. </head>
  117.  
  118. <body bgcolor="42426f" text="ffffff" link="ffff00" vlink="93db70"
  119. alink="cc3232" background=/images/logo.gif>
  120.  
  121. <h1 align=center>
  122.     Contents of $pathRoot
  123. </h1>
  124.  
  125. <hr size=3 width=75% noshade>
  126.  
  127. ENDOFTEXT
  128. }
  129.  
  130. #
  131. # RFE - people getting confused with all these choices.
  132. #
  133. #  &ShowSelection ;
  134. &ShowContents ;
  135.  
  136. print "\n</body>\n</html>\n\n" unless $arg == 1 ;
  137.  
  138.  
  139.  
  140. #__________________________________________________________
  141. #__________________________________________________________
  142. #__________________________________________________________
  143.  
  144.  
  145.  
  146. sub ErrBadPath
  147. {
  148.     print <<ENDOFTEXT ;
  149. Content-type: text/html
  150.  
  151. <HEAD><TITLE>404 Not Found</TITLE></HEAD>
  152. <BODY><H1>404 Not Found</H1>
  153. The requested URL $wrap$ENV{'PATH_INFO'} was not found on this server.<P>
  154. PathInfo = '$PATH'
  155. </BODY>
  156. ENDOFTEXT
  157.  
  158.     die ;
  159. }
  160.  
  161. #__________________________________________________________
  162.  
  163. sub DefaultMesg
  164. {
  165.     open(FILE, "/etc/passwd") ;
  166.     @passwd = <FILE> ;
  167.     close(FILE) ;
  168.  
  169.     unless( $arg == 1 )
  170.     {
  171.         print <<ENDOFTEXT ;
  172. Content-type: text/html
  173.  
  174. <head>
  175.     <title>
  176.         User List
  177.     </title>
  178. </head>
  179.  
  180. <body>
  181. <h1 align=center> 
  182.     User List
  183. </h1>
  184.  
  185. <hr size=3 width=50% noshade>
  186. <p>
  187. <h3 align=center>
  188.     This site supports the following users:
  189. </h3>
  190. <p>
  191. <hr size=3 width=50% noshade>
  192.  
  193. <ul>
  194. ENDOFTEXT
  195.     }
  196.  
  197.     print "<center>\n<table cellpadding=10>\n" ;
  198.  
  199.     open (FIND,"$ls $ROOT |") ;
  200.     while( <FIND> )
  201.     {
  202.         chop ;
  203.         next if $_ eq "\." ;
  204.         next if $_ eq "\.\." ;
  205.         next unless -d "$ROOT/$_" ;
  206.  
  207.         $name = "" ;
  208.  
  209.         foreach $line (@passwd)
  210.         {
  211.             @field = split(':', $line) ;
  212.             @_     = split(',', $field[4]) ;
  213.             ($name = $_[0]), last if $_ eq $field[0] ;
  214.         }
  215.  
  216.         print <<ENDOFTEXT ;
  217. <tr>
  218.     <th align=right>
  219.         <font size=+2>
  220.         <a href="$wrap/$_">$_</a>
  221.         </font>
  222.     </th>
  223.     <td>
  224.         <li>
  225.     </td>
  226.     <td>
  227.         <font size=+2>
  228.         <a href="$wrap/$_">$name</a>
  229.         </font>
  230.     </td>
  231. </tr>
  232. ENDOFTEXT
  233.     }
  234.     close(FIND) ;
  235.  
  236.     print "</table></center>\n</ul>\n</body>\n\n" ;
  237.  
  238.     die ;
  239. }
  240.  
  241. #__________________________________________________________
  242.  
  243. sub ValidPath
  244. {
  245.     return 1 unless /\.\./ ;
  246.     
  247.     return '' if /^\.\./ ;
  248.     return '' if /\/\.\.\// ;
  249.     return '' if /\.\.$/ ;
  250.  
  251.     return 1 ;
  252. }
  253.  
  254. #__________________________________________________________
  255.  
  256. sub HandleDownload
  257. {
  258.     print <<ENDOFTEXT ;
  259. Location: $PATH
  260.  
  261. ENDOFTEXT
  262.  
  263.     die ;
  264. }
  265.  
  266. #__________________________________________________________
  267.  
  268. sub ShowSelection
  269. {
  270.     local(@select) ;
  271.     
  272.     $FORM{'format'} = "default" unless defined $FORM{'format'} ;
  273.     $select{$FORM{'format'}} = "checked" ;
  274.  
  275.     print <<ENDOFTEXT ;
  276.  
  277. <center>
  278. <table cellpadding=2 cellspacing=0 border=0>
  279. <form action="$wrap$PATH" method=get>
  280. <tr>
  281.     <td><b>Viewing format:</b>
  282.         <input    type="radio"
  283.                 name="format"
  284.                 value="default"
  285.                 $select{'default'}> Default
  286.         <input    type="radio"
  287.                 name="format"
  288.                 value="long"
  289.                 $select{'long'}> Long
  290.         <input    type="radio"
  291.                 name="format"
  292.                 value="short"
  293.                 $select{'short'}> Short </th>
  294.     <td align=center>
  295.         <input type="submit" value="Apply"></td>    
  296. </tr>
  297. </form>
  298. </table>
  299. </center>
  300.  
  301. ENDOFTEXT
  302. }
  303.  
  304. #__________________________________________________________
  305.  
  306. sub ShowContents
  307. {
  308.     local($format) = $FORM{'format'} ;
  309.  
  310.     #_________________________________
  311.     #
  312.     #    Get the directory and do
  313.     #    some sorting (directories)
  314.     #    come first, then files.
  315.     #_________________________________
  316.  
  317.     open (FIND,"$ls $ROOT$PATH |") ;
  318.     while( <FIND> )
  319.     {
  320.         chop ;
  321.         next if $_ eq "\." ;
  322.         next if $_ eq "\.\." ;
  323.         push(@d, $_), next if -d "$ROOT$PATH/$_" ;
  324.         push(@f, $_) ;
  325.     }
  326.  
  327.     #_________________________________
  328.     #
  329.     #    Select method of display
  330.     #_________________________________
  331.  
  332.     &ListFolders(@d) ;
  333.     $format = "default" if ! defined $format ;
  334.  
  335.     if( $format eq "long" )
  336.     {
  337.         &ListLong(@f) ;
  338.     }
  339.     elsif( $format eq "short" )
  340.     {
  341.         &ListShort(@f) ;
  342.     }
  343.     else        # default format
  344.     {
  345.         &ListDefault(@f) ;
  346.     }
  347. }
  348.  
  349. #__________________________________________________________
  350.  
  351. sub ListFolders
  352. {
  353.     local($size) = $#_ + 1 ;
  354.     local($i) ;
  355.     local($j) ;
  356.     local($index) ;
  357.     local($format) ;
  358.     local($cols) = 3 ;
  359.     local($rows) = $size / $cols ;
  360.     local($left) = $size % $cols ;
  361.  
  362.     return if $size == 0 ;
  363.  
  364.     #_________________________________
  365.  
  366.     $format = "?format=$FORM{'format'}" if defined $FORM{'format'} ;
  367.  
  368.     #_________________________________
  369.  
  370.     $rows = sprintf("%.0d", $rows) ;
  371.     $rows++ if $left > 0 ;
  372.     
  373.     print <<ENDOFTEXT ;
  374.  
  375. </center>
  376. <h3>Shared Folders:</h3>
  377.  
  378. <table cellpadding=5 cellspacing=3 border width=100%><tr><td>
  379. <table cellpadding=3 width=100%>
  380. ENDOFTEXT
  381.     LOOP:
  382.     for( $i = 0 ; $i < $rows ; $i++ )
  383.     {
  384.         print "<tr>\n" ;
  385.         for( $j = 0 ; $j < $cols ; $j++ )
  386.         {
  387.             $index = $i + $j * $rows ;
  388.             if( $index >= $size )
  389.             {
  390.                 print "<td></td>\n" ;
  391.                 next ;
  392.             }
  393.             print <<ENDOFTEXT ;
  394. <td>
  395.     <a href=$wrap$PATH/$_[$index]$format>
  396.         <img src=/images/directory.gif align=middle border=0>
  397.         $_[$index]
  398.     </a>
  399. </td>
  400. ENDOFTEXT
  401.         }
  402.         print "</tr>\n" ;
  403.     }
  404.  
  405.     print <<ENDOFTEXT ;
  406. </table>
  407. </td></tr></table>
  408. <p>
  409. ENDOFTEXT
  410. }
  411.  
  412. #__________________________________________________________
  413.  
  414. sub ListDefault
  415. {
  416.     local($isdir) ;
  417.     local($icon) ;
  418.     local($type) ;
  419.     local(@notes) ;
  420.     local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,@other) ;
  421.     local($USERPATH) = $PATH ;
  422.  
  423.     return if ( $#_ == -1 ) ;
  424.  
  425.     substr($USERPATH, 0, 1) = "/~" ;
  426.  
  427.     print <<ENDOFTEXT ;
  428.  
  429. </center>
  430. <h3>Shared Files:</h3>
  431. <table cellpadding=5 cellspacing=3 border width=100%>
  432.  
  433. <tr>
  434.     <th width=50%>Name</th>
  435.     <th width=5%>Size</th>
  436.     <th width=45%>Action</th>
  437. </tr>
  438. ENDOFTEXT
  439.  
  440.     foreach (@_)
  441.     {
  442.         #_________________________________
  443.         #
  444.         #    Calculate the size of this
  445.         #    file
  446.         #_________________________________
  447.  
  448.         ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,@other) =
  449.             stat("$doc/$_") ; 
  450.  
  451.         if( $size == 1 )
  452.         {
  453.             $size = "<b>$size</b> byte" ;
  454.         }
  455.         elsif( $size >= 1024 )
  456.         {
  457.             $size = $size / 1024 ;
  458.             $size = sprintf("%.0d", $size) ;
  459.             $size = "<b>$size</b> KB" ;
  460.         }
  461.         else
  462.         {
  463.             $size = "<b>$size</b> bytes" ;
  464.         }
  465.  
  466.         #_________________________________
  467.         #
  468.         #    Add notes if applicable
  469.         #_________________________________
  470.  
  471.         if( -e "$doc/$_.notes" )
  472.         {
  473.             open(DATA, "$doc/$_.notes") ;
  474.             @notes = <DATA> ;
  475.             close(DATA) ;
  476.             $row = 2 ;
  477.         }
  478.         else
  479.         {
  480.             $row = 1 ;
  481.         }
  482.         
  483.         #_________________________________
  484.         #
  485.         #    Diplay the data in table form
  486.         #_________________________________
  487.  
  488.         print <<ENDOFTEXT ;
  489. <form action="/cgi-bin/handler$PATH/$_" method=post>
  490. <tr>
  491.     <td rowspan=$row>
  492.         <a href="$USERPATH/$_">
  493.             <img src=/images/data.gif align=middle border=0>
  494.             $_
  495.         </a>
  496.         <br>
  497.     </td>
  498.     <td align=center>
  499.         $size
  500.     </td>
  501.     <td align=center>
  502.         <input type="submit" name="data" value="View">
  503.         <input type="submit" name="data" value="Download">
  504.     </td>
  505. </tr>
  506. ENDOFTEXT
  507.  
  508.         #_________________________________
  509.         #
  510.         #    If there is a .notes file,
  511.         #    show the message within the
  512.         #    HTML doc.
  513.         #_________________________________
  514.  
  515.         if( $row == 2 )
  516.         {
  517.             print "<tr> <td colspan=2>\n" ;
  518.             print "<b>Notes: </b>\n" ;
  519.             foreach (@notes)
  520.             {
  521.                 print ;
  522.             }
  523.             print "</td> </tr>\n" ;
  524.         }
  525.         print "</form>\n" ;
  526.     }
  527.     print "</table></center>\n"
  528. }
  529.  
  530. #__________________________________________________________
  531.  
  532. sub ListShort
  533. {
  534.     local($size) = $#_ + 1 ;
  535.     local($i) ;
  536.     local($j) ;
  537.     local($index) ;
  538.     local($cols) = 3 ;
  539.     local($rows) = $size / $cols ;
  540.     local($left) = $size % $cols ;
  541.  
  542.     return if $size == 0 ;
  543.  
  544.     $rows = sprintf("%.0d", $rows) ;
  545.     $rows++ if $left > 0 ;
  546.     
  547.     print <<ENDOFTEXT ;
  548.  
  549. </center>
  550. <h3>Shared Files:</h3>
  551.  
  552. <table cellpadding=5 cellspacing=3 border width=100%><tr><td>
  553. <table cellpadding=3 width=100%>
  554. ENDOFTEXT
  555.     LOOP:
  556.     for( $i = 0 ; $i < $rows ; $i++ )
  557.     {
  558.         print "<tr>\n" ;
  559.         for( $j = 0 ; $j < $cols ; $j++ )
  560.         {
  561.             $index = $i + $j * $rows ;
  562.             if( $index >= $size )
  563.             {
  564.                 print "<td></td>\n" ;
  565.                 next ;
  566.             }
  567.             print <<ENDOFTEXT ;
  568. <td>
  569.     <a href=$PATH/$_[$index]>
  570.         <img src=/images/data.gif align=middle border=0>
  571.         $_[$index]
  572.     </a>
  573. </td>
  574. ENDOFTEXT
  575.         }
  576.         print "</tr>\n" ;
  577.     }
  578.  
  579.     print <<ENDOFTEXT ;
  580. </table>
  581. </td></tr></table>
  582. ENDOFTEXT
  583. }
  584.  
  585. #__________________________________________________________
  586.  
  587. sub ListLong
  588. {
  589.     local($unit) ;
  590.     local(@other) ;
  591.     local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) ;
  592.     local($atime, $mtime, $ctime) ;
  593.     local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) ;
  594.     
  595.     return if $#_ == -1 ;
  596.     
  597.     print <<ENDOFTEXT ;
  598.  
  599. <h3>Shared Files:</h3>
  600. <table cellpadding=5 cellspacing=3 border width=100%>
  601. <tr><td>
  602. <pre>
  603.  
  604. ENDOFTEXT
  605.  
  606.     foreach (@_)
  607.     {
  608.         #_________________________________
  609.         #
  610.         #    stat document and get the 
  611.         #    pertinent info on it.  Also
  612.         #    get a unit for the size, ie
  613.         #    bytes or Kb, etc
  614.         #_________________________________
  615.         
  616.         ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  617.             $atime, $mtime, $ctime, @other) =
  618.             stat("$doc/$_") ; 
  619.  
  620.         if( $size == 1 )
  621.         {
  622.             $unit = "byte" ;
  623.         }
  624.         elsif( $size >= 1024 )
  625.         {
  626.             $size = $size / 1024 ;
  627.             $size = sprintf("%.0d", $size) ;
  628.             $unit = "KB" ;
  629.         }
  630.         else
  631.         {
  632.             $unit = "bytes" ;
  633.         }
  634.  
  635.         #_________________________________
  636.         #
  637.         #    Get last mod time
  638.         #_________________________________
  639.  
  640.         ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,@other) = 
  641.             localtime($ctime) ;
  642.         $theDay   = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday] ;
  643.         $theMonth = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon] ;
  644.         $date     = sprintf("$theDay $theMonth $mday %02d:%02d:%02d 19$year",
  645.                             $hour, $min, $sec) ;
  646.  
  647.         #_________________________________
  648.  
  649.         local($filler) = " " x (25 - length($_)) ;
  650.         $filler = 0 if $filler < 0 ;
  651.         print sprintf("<a href=$PATH/$_><img src=/images/data.gif align=middle border=0>%.25s</a>%s %6d %-5.5s %s\n", $_, $filler, $size, $unit, $date) ;
  652.     }
  653.  
  654.     print <<ENDOFTEXT ;
  655. </pre>
  656. </td></tr>
  657. </table>
  658. ENDOFTEXT
  659. }
  660.  
  661.